00100	BEGIN
00200	WHILE TRUE DO
00300	BEGIN
00400	INTEGER LIN;
00500	LIN←CVO(INCHWL)*'1000000;
00600	 START_CODE
00700	  LABEL MAPP,XX1,GOO;
00800	   JRST GOO;
00900	MAPP: '47;
01000	XX1: '402000000000 MAPP;
01100	GOO: MOVE 1,XX1;
01200	   ADD 1,LIN;
01300	   CALLI 1,'400070;
01400	   SETOM LIN;
01500	 END;
01600	OUTSTR(CVOS(LIN)&'15&'12&'15&'12);
01700	END;
01800	END;